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SUPERCEDED /l/ir* tufTS 



ORIGINAL 

PROGRAM BY 

DEC DIGITAL NAME 

5-1-S 8-3-S t PAL (Program Assembly Language for PDP-5) 

5-2-A 8-11-F Two's Complement Multiply Subroutine 

5-3-0 8-18-U Teletype Output Package 

5-4-A 8-10-U BCD to Binary Conversion 

5-5-S 8-12-S ODT(Octal Debugging Tape) 

5-7-A 8-9-F Square Root (Singe Precision) 

5-8-U 8-6-U Octal Dump on Teletype (High) 

5-9-A 8-12-F 2 T s Complement Single Precision 

Divide Subroutine 

5-10-A Signed Decimal to Binary Input 

5-11-A Double Precision Binary-Dec. Conversion 

and Output (Signed) 

5-17-A $ — i5"~-'f Single Precision Sine Calculation 

5-18-A Single Precision Cosine Calculation 

5-20-U Message-5 

5-21-10 8-22-U Unsigned Decimal Print, DCPT 

5-22-1 8-1-U Rim & Bin Loader 

5-23-1 8-2-U tBinary Loader 750 

5-24-0 8-5-U Binary Punch 33 

5-25-0 8-5-U tBinary Punch 75A 

5-26-0 8-4-U Read-in-Mode (RIM) Punch 33 

5-29-1 tRIM Loader 750 

5-30-A 8-5-S Interpretive Floating Point Arithmetic 

Package 

5-31-U Signed Single Precision, Decimal 

Memory Dump (High) 
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ORIGINAL SUPERCEDED 

PROGRAM BY 

DEC DIGITAL NAME 

5-32-A Single Precision Binary to Decimal 

Conversion and Typeout (Signed) 

5-33-A 8-13-F Double Precision Multiply 

5-34-A 8-14-F Double Precision Divide 

5-36-A 8-5-S PDP-5 Floading Point and I/O Package 

5-37-S 8-1-S PDP-5 Paper Tape Editor 

5-41-U Octal Dump on Teletype under Program 

Control 

5-42-U Signed, Single Precision, Decimal Mem- 

ory Dump on Teletype under Program 
Control 

5-43-D 8-10-S Expensive Adding Machine 

5-46-A Square Root Calculation in Floating 

, Point 
6-4^-M 34 O/SPtrtt/ TfST 

5-53-1/0 8-33-U DECtog-5 

MAINDEC Maintenance Routines 

5-12-M 801 Maindec 501 (Instruction Test) 

5-13-M 810 Maindec 510 (Reader Test Program) 

5-14-M 812 Maindec 512 (Punch Test) 

5-15-M 802 Maindec 502 (Memory Checkerboard) 

5-16-M 803 Maindec 503 (Address Test Program) 

5-19-M 814 " Maindec 514 (Teleprinter Test Program) 

5-38-M 814 PDP-5 Read Alpha Test 
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ORIGINAL SUPERCEDED 

PROGRAM BY Maintenance Routines 

DEC MAINDEC 



5-40-M 811 tHigh Speed Reader Test, Type 750 

5-44-M 817 tHigh Speed Punch Test 

5-50-M 820 Memory Extend Test 

5-52-M . Teletype 634S Test 

o-£3~l/& s/f Too, - OSC-roe 

5-54-M 57A Basic Program 

5-55-M Drum 250 



t Programs for High Speed Reader and Punch 
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number: dec - 5 - 10 - a 



name: 



DATE: 



Signed Decimal to Binary Input 
Revised June 18, 1964 



AUTHOR: Larry Portner - DEC 

SPECS: Length: 64 10 Registers - TS 

ABSTRACT: This routine will accept a string of decimal digits from 
the teletype and convert them to a signed two 1 s comple- 
ment binary number (if a sign is specified). 

The string may contain a sign (-or space) and the digits 

from 0-9J a rubout will erase the word an\ allow the ope- 
rator to re-enter the value. The sign, if one appears, 
must appear first. Any character other than -, space, 
0-9 or rubout will cause the routine to terminate, as 
will a sign in any but the first position. The charac- 
ter which causes the routine to terminate will be found 
in location "save". If the first legal character is not 
a sign (space or-) the sign of the conversion will be 
positive. 
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DESCRIPTION 

This routine will convert a signed or unsigned string of de- 
cimal numbers read from the teletype keyboard to its binary equi- 
valent. If a minus sign is specified, the result is in two's 
complement form. 

The first character is examined, and if it is sign (space 
or -), a switch is set to provide the correct sign for the con- 
version. 

Succeeding characters are then examined. A rubout will wipe 
out intermediate results and allow a restart. Any non-digit, in- 
cluding a sign, will cause the routine to terminate. Upon the 
return, the binary value will be in the accumulator. The charac- 
ter which caused termination will be in "save", and a zero in 
test indicates no conversion has taken place. 

The user must initialize the keyboard flag if there is a 
possibility the flag may be on before the input string has been 
started. 
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/decimal to binary input conversion routine 

/routine accepts a string of digits , a space or a minus sign 

/routine will terminate on any other character 
/character which -terminates will be in save. 
/calling sequence: jms dbcv 

/ return after terminator, result in ac 

*200 

dbcv, 

cla ell 
dca test 
tad sevt 
dca sweh 
dca temp 
jms chin 
dca save 
tad save 
tad rbt 
sna 

jmp dbCV+1 /-r; V^ " ^ or: ;,..- 

tad spc / ! ^ >■ " 

sna 

jmp tst 

tad neg 

sza 

Jmp skip 

tad test 

sza cla 

jmp exit 

tad fort 
pos, tad sevt 

dca sweh 

isz test 

jmp dbcv+6 
skip, cla 

tad save 

tad numb 

sma 

jmp exit 

tad nine 

sma 

jmp cont 

exit, cla 

tad temp 
sweh, 

jmp i dbcv 
cont, dca sav2 

tad temp 

rtl ell 

ral 




DEC - 5 - 10 - A 
Page 4 



octl, 



dca save 
tad temp 
ral 
tad save 



ret, 
tst, 



nine, 
temp, 

save, 
sav2, 

rbt, 

spc, 

test, 

neg, 

fort, 

sevt, 

numb, 

chin, 



tad 


sav2 


isz 


test 


Jmp 


dbcv+5 


tad 


test 


sza 


cla 


jmp 


exit 


jmp 


pos 


12 



















7401 




0137 









7763 




oo4l 




7000 




7506 









ksf 




jmp 


.-1 


krb 




tls 




jmp : 


L chin 



PDP 




LI BRARY 



*200 






dbcv, 


F 1 






CLA 


CLL 




DCA 


TEST 




TAD 


SEVT 




DCA 


SWCH 




DCA 


TEMP 




JMS 


CHIN 




DCA 


SAVE 




TAD 


SAVE 




TAD 


RBT 




SNA 






JMP 


dbo; + 1 




TAD 


SPC 




SNA 






JMP 


TST 




TAD 


NEC 




SZA 






JMP 


SKIP 




TAD 


TEST 




SZA 


CLA 




JMP 


EXIT 




TAD 


FORT 


PCS, 


TAD 


SEVT 




DCA 


SWCH 




ISZ 


TEST 




JMP 


DBCV + 6 


SKIP, 


CLA 






TAD 


SAVE 




TAD 


NUMB 




SMA 






JMP 


EXIT 




TAD 


NINE 




SMA 






JMP 


CONT 


EXIT, 


CLA 






TAD 


TEMP 


SWCFU 









JMP 


I DBCV 


CGNT, 


DCA 


SAV? 




TAD 


TEMP 




RTL 


CLL 




RAL 




OCTL, 


DCA 


SAVE 




TAD 


TEMP 




RAL 






TAD 


SAVE 


RET, 


TAD 


SAV? 




ISZ 


TEST 




JMP 


DBCV+5 


TST* 


TAD 


TEST 




SZA 


CLA 




JMP 


EXIT 




JMP 


PCS 


NINE* 


1? 




TEMP, 







S AV E, 







SAV2, 


(? 




RPT, 


7 401 




SPC, 


0131 


i 



TEST* 





NFG* 


7763 


FORT* 


00Z1 


S FV T* 


7P00 


NUMB* 


7506 


CHIN, 







KSF 




JMP 




KRB 




TLS 




JMP 



-1 



I CHIN 



PDP-5 PROGRAM LIBRARY 

NUMBER: DEC-5-11-A 

NAME: Double Precision Binary-Decimal Conversion and Output (Signed) 

AUTHOR: Larry Portner 

DATE: November 27, 1963 

SPECS: Length: 134 

o 

TS (Teletype Symbolic) 

NEEDED: Self-contained 

ABSTRACT: This routine will convert two binary words (where the high order word 
contains a sign) to a signed decimal number and type it out. 
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DESCRIPTION 

Given the address of the high order word of two words which comprise a 23 bit binary number 
and a 1 bit sign, this routine will convert the binary value to its decimal equivalent and type 
it out, preceded by a space or a minus sign. 

USAGE 

Calling sequence: 

jms dbnd 

address of high order word 

return: 

Routine will type a sign +7 digits. User must provide formatting. 
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*200 
DBND, 



ARND, 



DO, 





CLA CLL 

TAD I DBND 

DCA GET 

TAD I GET 

SPA 

CML 

CLA 

TAD PLUS 

SZL 

TAD MNS 

JMS PRNT 

TAD I GET 

CLL 

SPA 

CMA CML 

DCA HIGH 

TAD LOOP 

DCA CNT 

TAD ADDR 

DCA Z0010 

ISZ GET 

ISZ DBND 

TAD I GET 

SZL 

CMA CLL I AC 

SZL 

ISZ HIGH 

DCA LOW 

TAD I Z 0010 

DCA HSUB 

JMS DO 

ISZ CNT 

JMP ARND 

TAD PLUS 

JMS PRNT 

JMP I DBND 



TAD I Z 0010 

DCA LSUB 

CLL 

TAD LSUB 

TAD LOW 
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DCA TEML 




RAL 




TAD HSUB 




TAD HIGH 




SPA 




JMP OUT 




ISZ BOX 




DCA HIGH 




TAD TEML 




DCA LOW 




JMP DO+3 


OUT, 


CLA 




TAD BOX 




JMS PRNT 




DCA BOX 




JMP 1 DO 


PRNT, 







TAD TWO 




TSF 




JMP .-1 




TLS 




CLA 




JMP 1 PRNT 


LOOP, 


7771 


CNT, 





HIGH, 





LOW, 





ADDR, 


CON1-1 


TWO, 


0260 


PLUS, 


7760 


MNS, 


0015 


HSUB, 





LSUB, 





BOX, 





TEML, 





GET, 





CON1, 


7413 




6700 




7747 




4540 




7775 




4360 




7777 



F>TD& 
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6030 

7777 
i i i i 

7634 
7777 
7766 
7777 
7777 



PDP 



LI BRARY 



b&*/D 



0200 
201 
0202 
0203 
£204 

2(2-5 
0206 
20 7 
0210 

021 1 
0212 
0213 
0214 
0215 
0216 
0217 
0220 
0221 
222 
223 
0224 
0225 

022 6 
0227 
0230 
0231 
232 
0233 
0234 
2 2 3 5 
23 6 
0237 
0240 
024 1 
242 
243 
02^4 
0245 
2^6 
0247 
2 50 
02 51 
252 
02 53 
2 54 
0255 
0256 
£257 
2 60 
2 61 
0262 
0263 
264 
0265 
0266 
2 67 
270 
271 
0272 



0000 

7300 
160 
3316 
1716 
7510 
7020 
7200 
1310 
7430 
1311 
4273 
1716 
7100 
7510 
7060 
3 30 4 
1302 

330 3 
130 6 
3010 
2316 
2200 
1716 
7430 
7141 
7430 
2304 
3305 

1410 

3312 

4245 
2303 
52 3 5 
1310 
4273 
5600 

0000 
1410 

3313 
7100 
1313 
130 5 
3315 
700 4 
1312 
130 4 
7 510 
5266 
2314 
3304 
1315 
3 30 5 
52 50 
7200 
1314 
4273 

331 4 
564 5 



/DOUBLE PRECISION EI NARY TO DECIMAL CONVERSION AND TYPEQUT 

*20 

DEND* 



ARND* 



DO* 



GUT, 





CLA 

TAD 

DCA 

TAD 

EPA 

CKL 

CLA 

TAD 

SZL 

TAD 

JMS 

TAD 

CLL 

SPA 

CMA 

DCA 

TAD 

DCA 

TAD 

DCA 

ISZ 

I£Z 

TAD 

SZL 

CM A 

SZL 

ISZ 

DCA 

TAD 

DCA 

JMS 

ISZ 

JMP 

TAD 

JMS 

JMP 



TAD 

DCA 

CLL 

TAD 

TAD 

DCA 

PAL 

TAD 

TAD 

SPA 

JMP 

ISZ 

DCA 

TAD 

DCA 

JMP 

CLA 

TAD 

JMS 

DCA 

JHP 



CLL 

I LEND 
GET 
I CET 



PLUS 

MNS 
PRNT 
I GET 



CML 
HIGH 
LOOP 
CNT 
A DDF: 

Z 0010 

GET 
DBND 

I GET 

CLL IAC 

HIGH 

LOU 

I Z 0010 

HSUE 

DO 

CNT 

ARND 

PLUS 

PRNT 

I DBND 

I Z 0010 

LSUE 

Lsue 

LOW 
TEML 

HSLB 
HIGH 

OUT 
EOX 
HIGH 
TEML 
LO v: 
DO + 3 

EOX 

PRNT 
EOX 
I DO 



0273 0000 FRiVT* £ 

274 1307 TAD TvG 

£275 60^1 T£F 

£276 5275 JMP .-1 

0277 6046 TLS 

300 7208 CLA 

£301 567 3 JMP I PFNT 

0302 7771 LOOP, 7771 

£303 0000 CNT, £ 

304 0000 HIGH, 

0305 0000 LOV,, 

30 6 0316 ADDR, CON 1-1 

0307 0260 TH3, ^2fS 

0310 7760 PLUS, 7760 

311 0015 MNS, 0015 

0312 0000 HSUB, 

0313 0000 LSUE, 
314 0000 BOX, 

0315 0000 TEML, 

0316 0000 GET, 

0317 7413 CON1* 7413 
320 6700 6700 

0321 77*7 7747 

0322 4540 4540 

0323 7775 7775 

0324 4360 4360 
32 5 7 777 777 7 

0326 6030 6030 

0327 7777 7777 
330 7634 7634 
0331 7777 7777 
332 7766 7766 

0333 7777 7777 

0334 7777 7777 

ADDF 0306 

ARND 023 5 

BOX 0314 

CIV7 0303 

CON1 0317 

DBND 0200 

DO 0245 

GET 0316 

HIGH 304 

HSUB 0312 

LOOP 302 

LOU 30 5 

LSUB 0313 

HNS 0311 

OUT 0266 

PLUS 0310 

PRNT 0273 

TEML 0315 

TV'O 030 7 
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NUMBER: DEC - 5 ~ 31 - U 

NAME: Signed, Single Precision, Decimal Memory Dump (High) 

DATE: Writeup revised June 30, 1964 

AUTHOR: Larry Portner - DEC 

SPECS: Length 128 10 Registers 

ASR-33* PAL Binary Format 

SA 70005 Occupies 7000-7177. 

ABSTRACTS Given the limits of an area in memory, this routine 

will perform 2 ! s complement binary to signed decimal 
conversion upon each word, and type it out, a variable 

number of words per line with the address of the first 
word in each line appearing in front of each line. 
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usage: 



This routine will convert a series of 2»s complement 
binary words to signed decimal and type them out, 
giving the user the option of specifying the area of 
memory to be converted and the number of words to be 
typed on each line. The maximum number per line is 
llg. 

A) Start the routine by placing the starting address 
(7000) in the console switches and pressing LOAD 

ADDRESS . 

B) Enter the octal number of words per line in the 
console switches and press START. 

C) The program will immediately halt. Enter the be- 
ginning address of the area to be dumped in the 
switches, press CONTINUE. 

D) Enter the ending address in the switches, press 
CONTINUE. 



To dump successive blocks using the same number of 
words per line, repeat C and D. 

To change the number of words per line, repeat A 
through D. 
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/single 
*7000 



;bnc, 



xyz. 



addr, 

box, 

cnt, 

val, 

cntr, 

con, 



precision decimal memory dump 

UJ-D 

jms lfcr 
osr 
sna 

jmp ,+3 
cia 

dca parm 
jmp ddmp 


spa 
cml 

dca bal 
dca box 
tad cntr 
dca cnt 
tad addr 
dac xyz+2 
tad plus 
szl 

tad mns 
jms prnt 
tad val 
spa 

cma iac 
dca val 
tad val 
tad con 
sma 

isz box 
sma 

jmp xyz 
cla 

tad box 
jms prnt 
dca box 
isz xyz+2 
isz cnt 
jmp xyz+1 
tad plus 
jms prnt 

tad plus 

jms prnt 

jmp i sbnc 

tad con 







777^ 
6030 

7634 
7766 
7777 
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prnt, 



two, 
plus, 
mns, 
ddmp, 



newl, 



loop, 



rnsk4, 

form, 

line, 

end, 

bgn, 

olup, 





tad two 

OBJ. 

jmp .-1 

tls 

cla ell 

jmp i prnt 

0260 

7760 

0015 

cla 

tls 

hit 

osr 

dca bgn 
hit 
osr 

dca end 
tad bgn 
cma iac 
ell 

tad end 
cma 
dca end 

vXJn 

tad form 
dca olup 
tad parm 
dca line 
tad bgn 
jms ocpt 
tad i bgn 
jms sbnc 
isz bgn 
isz end 
jmp .+3 
jms lfcr 
jmp ddmp 
isz line 
jmp loop 
jms lfcr 
cla 

jmp newl 
7000 
£774 
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ocpt, 



lfcr, 



cr, 

If, 
wait, 

parm, 





ell 

dca wait 

tad msk4 

and wait 

rtl 

rtl 

jms prnt 

tad wait 

rtl 

ral 

isz olup 

jmp ocpt+1 

cla 

tad plus 

jms prnt 

cla 

O'mp i ocpt 



tad cr 

jms prnt 

tad If 

jms prnt 

jmp i lfcr 

7735 

7732 



o-4 




SB^C -S 



PDP-5 PROGRAM LIBRARY 



NUMBER: DEC - 5 - 32 - A 

NAME: Single Precision Binary to Decimal Conversion and typeout 
(signed. ) 

AUTHOR: Larry Portner - DEC 

DATE: January 16, 1964 

SPECS: Length: 51 1Q Registers 

TS (ASR-33, PAL Symbolic) 

ABSTRACT: This routine will convert a two's complement binary 
word to it's signed decimal equivalent and type it 
out. 



DESCRIPTION: 



This routine is entered with a two f s complement binary 
word in the accumulator and will convert it to its 

signed decimal equivalent and type it out, preceded by 
a space or a minus sign. 



USAGE: 



Calling sequence: 

tad binary word 
jms sbnc 
return 
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/binary to decimal conversion and typeout 

/single precision 

/calling sequence: tad binary word 

/ jms sbnc 

/ return 



sbnc, 



xyz 



addr, 

box, 

cnt, 

val, 

cntr, 

con, 





ell 

spa 

cml 

dca val 

dca box 

tad cntr 

dca cnt 

tad addr 

dca xyz+2 

tad plus 

szl 

tad mns 

jms prnt 

tad val 

spa 

cma iac 

dca val 

tad val 

tad con 

sma 

isz box 

sma 

jmp xyz 

cla 

tad box 

jms prnt 

dca box 

isz xyz+2 

isz cnt 

jmp xyz+1 

jmp i sbnc 

tad con 







7774 

6030 

7634 

7766 

7777 
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prnt , 

tad two 

tsf 

Jmp .-1 

tls 

cla ell 

jmp i prnt 

two, 0260 

plus, 7760 

mns, 0015 

$ 



:f»id:f> 
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/BINARY TO DECIMAL 
/SINGLE PRECISION 
/CALLING SEQUENCE: 
/ 



CONVERSION AND TYPED DT 



02££ 
0201 
0202 
0205 
20 4 

0205 
20 6 
0207 
0210 
021 1 
0212 
0213 
21 4 
0215 
216 
0217 
220 
0221 

223 
224 
22 5 
22 6 
22 7 
0230 
0231 
0232 
0233 
0234 
23 5 
0236 
237 
0240 
241 
242 
0243 
244 
24 5 
24 6 
0247 
2 50 
251 
0252 
0253 
0254 
2 55 
2 56 
0257 
02 60 
261 
2 62 



7100 
7510 
7020 
3243 
324 1 
1244 
3242 
12 40 
3223 
1261 
7430 
1262 
4251 
1243 
7510 
7041 
3243 
1243 
1245 
7500 
2241 

7500 
5221 
7200 
1241 
4251 
3241 
2223 
22 42 
5222 
5600 
1245 
0000 
0000 
0000 
7774 
6030 
7 634 
7766 
7777 

0000 

1260 
60^1 

5253 
60^6 
7300 
5651 
0260 
77 60 
0015 



/ 

*200 

SBNC, 

CLL 

SPA 

CML 

DCA VAL 

DCA BOX 

TAD CNTR 

DCA CNT 

TAD A DDR 

DCA XYZ + 2 

TAD PLUS 

SZL 

TAD MNS 

JMS FRNT 

TAD VAL 

SPA 

CNA IAC 

XYZ, DCA VAL 

TAD VAL 

TAD CON 

SNA 

ISZ 

SNA 

JMP 

CLA 

TAD 

JMS 

DCA 

ISZ 

ISZ 

JNP 

JNP 

A DDR, 

BOX, 

CNT, 

VAL, 

CNTF, 7774 

CON, 6030 

7 634 

7766 

7777 

PFNT, 

TAD TIO 

TSF 

JMP .-1 

TLS 

CLA CLL 

JNP I PFNT 

TWO, 0260 

PLUS, 7760 

MNS, 00 15 



TAD EI NARY 
JNS SBNC 
R FT URN 



V'ORD 



BOX 

XYZ 

BOX 
PRNT 
BOX 
XYZ+2 
CNT 
XYZ+1 
I SBNC 
TAD CON 



A DDR 
BOX 

CNT 



0240 

0241 
0242 



SBtfc-s 



CNTF 


02^ 


CCiV 


02^5 


HNS 


0262 


PLL£ 


02 61 


PENT 


02 51 


SBNC 


0200 


TVO 


0260 


VAL 


0243 


XYZ 


0221 
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NUMBER: 



DEC - 5 - 41 - U 



name: 



Octal Dump on Teletype under Program Control 



date: 



April 1, 1964 



AUTHOR: R. Wins low, J.E. Richardson - DEC 



SPECS: Length 76 Registers 
PAL Symbolic 



NEEDED: 



ASR-33 



ABSTRACT: Subroutine to type out the contents of an area in 
memory as octal numbers. 




DEC - 5 - 4l - U 
Page 2 



DESCRIPTION 

This subroutine will convert a series of 2's complement 
binary numbers to their octal equivalence and type them out on 
the ASR-33. In the calling sequence, the user specifies the 
area of memory to be typed out. 

The first number on each line is the address in octal of 
the following word. Four words are typed out following each 
address. A carriage return/line feed combination is generated 
both prior to and after the typeout. 

Calling Sequence 



jms odum 

IA 

FA 



/subroutine called 
/address of initial word 
/address of final word 
/return with AC and 
/link clear. 
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/PDP-5 


OCTAL DUMP SUBROUTINE 




x200 










o 








dca.4ee 


ptem 






tad 


peon 


/7774 




doa 


den 


/initialize digit counter 




tad 


ptem 






ral 






pnu2 , 


ral 
rtl 








do a 


ptem 






tad 


ptem 






and 


pcon+1 


/7 




tad 


pcon+2 


/260 




jms 


i tdit 


/typn (type a digit) 




tad 


ptem 






isz 


den 






jmp pnu2 






cla 








jmp 


i pnum 




den, 







/digit counter 


ptem, 









tdit, 


typn 




peon, 


7774 


/constants 




260 






odum, 











jms 


crlf 






tad 


i odum 


/get lower limit 




dca 


lock 






isz 


odum 






tad 


i odum 


/get upper limit 




isz 


odum 






cma 








tad 


lock 






dca 


lim 


/initialize range counter 




jmp 


.+3 




dum2, 


isz 


lpcn 


/end of line 




jmp 


dum3 






tad 


peon 


/-4 




dca 


lpcn 


/reset item counter 




jms 


crlf 


/carr,ret.and line feed 




tad 


lock 






jms 


pnum 


/inter-com. to pnum 




tad 


peon 


/-4 




dca 


crlf 






tad 


cons+2 


/240 (space) 




jms 


typn 






isz 


crlf 






jmp 


.-3 
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dum3, 


cla 






tad 


1 lock 




jms 


pnum 




tad 


cons+2 




jms 


typn 




Isz 


lock 




lsz 


lim 




jmp 


dum2 




jms 


crlf 




jmp 


1 odum 


typn, 



tsf 






jmp 


.-1 




tls 






cla 






jmp 


1 typn 


crlf, 









cla 


ell 




tad 


cons+1 




jms 


typn 




tad 


cons 




jms 


typn 




jmp 


1 crlf 


lock, 







11m, 







lpcn, 







cons, 


212 
215 
240 





/inter-com. to pnum 
/24o (space) 

/index location pointer 
/end of range 



/return to main program 



/212 (line feed) 



/constants 



IPIDIP 




LI BRARY 



DATE: 



PDP-5 PROGRAM LIBRARY 



number: dec - 5 - 42 - u 

NAME: Signed, Single Precision, Decimal Memory Dump 
on Teletype under Program Control 



April 1, 1964 



AUTHOR: Larry Portner, J.E. Richardson - DEC 



SPECS: Length 126, n Registers - PAL Symbolic 



'10 



NEEDED: ASR-33 



ABSTRACT: Subroutine to type out the contents of an area in 
memory as signed, decimal numbers. 
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DUSUttin'lUJN 



This subroutine will convert a series of 2«s complement 
binary words to decimal and type them out on the ASR-33. The 
user specifies the area of memory to be typed out and the num- 
ber of words per line. 

The first number on each line is the address in octal of 
the following word. The maximum number of words per line which 
can be specified is llg. A carriage return/line feed combina- 
tion is given both prior to and after the typeout. 

Calling Sequence ; 



tad 


N 


Jms 


ddum 


IA 




FA 





/N= number of words per line 
/in octal 
/subroutine called 

/address of initial word 
/address of final word 
/return. AC and link clear 



Note: If the AC contains zero when the subroutine is called, 
the most recent specification of number of words per 
line will be taken. 

The subroutine itself is set up to type out 4 words 
per line unless otherwise specified. 
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/single precision decimal memory dump on teletype, 
/under program control 

/calling sequence: 



/tad n 
/jms ddum 

/la 
/fa 

X200 
ddum, 



sbnc, 



xyz 



/ U N" = number of words per line 
/subroutine called 

/initial address to be typed 
/final address to be typed 



sna 

jmp .+3 
cia 

dca parm 
jms Ifcr 
jmp ddmp 


spa 
cml 

dca val 
dca box 
tad cntr 
dca cnt 
tad addr 
dca xyz+2 
tad plus 
szl 

tad mns 
jms prnt 
tad val 
spa 

cma iac 
dca val 
tad val 
tad con 
sma 

isz box 
sma 

jmp xyz 
cla 
tad box 

jms prnt 
dca box 
isz xyz+2 
isz cnt 
jmp xyz+1 
tad plus 
jms prnt 
tad plus 
jms prnt 
jmp I sbnc 
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addr, 

box, 

cnt, 

val, 

cntr, 

con, 



prnt, 



two, 
plus, 

mns, 
ddmp, 



newl, 



loop, 



tad con 







7774 

6030 

7634 

7766 

7777 


tad two 
tsf 
jmp .-1 

tls 

cla ell 
jmp 1 prnt' 
0260 
7760 

0015 

tad i ddum 
dca bgn 
isz ddum 
tad i ddum 
isz ddum 
dca end 
tad bgn 
cma iac 
ell 

tad end 
cma 

dca end 
ell 

tad form 
dca olup 
tad parm 
dca line 
tad bgn 
jms ocpt 

tad i bgn 
jms sbnc 

isz bgn 
isz end 

Jmp .+3 

jms lfcr 

jmp i ddum 

isz line 

jmp loop 

jms lfcr 

cla 

jmp newl 
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msk4, 


7000 


form, 


7774 


line. 





end, 





bgn, 





olup, 





ocpt, 







ell 




dca wait 




tad msk4 




and wait 




rtl 




rtl 




jms prnt 




tad wait 




rtl 




ral 




isz olup 




Jmp ocpt+1 




cla 




tad plus 




jms prnt 




cla 




jmp i ocpt 


lfcr, 







tad cr 




jms prnt 




tad If 




jms prnt 




jmp i lfcr 


cr, 


7735 


If, 


7732 


wait, 





parm, 


o-4 


$ 





if»d:f 



LIBRARY 



